library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- FALSE

source("code/declarations/declaration_10.3.R")

diagnosis_10.5 <-
  diagnose_design(
    list(declaration_10.3a, declaration_10.3b),
    sims = sims,
    bootstrap_sims = bootstrap_sims
  )

write_rds(diagnosis_10.5, file = "diagnosis_objects/diagnosis_10.5.rds")